5 PRINT"[147]"
10 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
20 POKE54277,8:POKE54278,255:POKE54276,23:REM COMPARE WITH 17, 21 OR 33
40 FORF2=15TO30STEP5:POKE54287,F2
50 FORF1=1TO255STEP4:POKE54273,F1:NEXTF1:NEXTF2:POKE54278,15
60 LIST10-50